RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®®1D**PACK 
PPPPPPPP AAAAAA CCCCCCCE KK KK : 
PPPPPPPP AAAAAA CCCCCCEE KK KK 3 
PP PP AA AA CC KK KK ; 
PP PP AA AA CC KK KK ; 
PP PP AA AA CC KK KK : 
pe PP AA AA CC KK : 
PPPPPPPP AA AA CC KKKKKK 3 
PPPPPPPP AA AA CC KKKKKK ; 
PP eC KK ’ 
Pp AAAAAAAAAA CC KK KK : 
pe AA AA CC KK KK wine : 
PP AA AA CC KK KK dane ; 
PP AA AA CCCCCCCE KK KK pees : 
PP AA AA CCCECECE KK KK oume ; 
LL HI SSSSSSSS : 
tL II SSSSSSSS ; 
LL II $$ : 
LL II SS : 
tL II SS ; 
LL II SS : 
cL II SSSSSS ; 
tL il SSSSSS : 
LL II S$ : 
LL II SS 2 
LL II S$ : 
LL II SS ; 
LLLLLLLLLL §©=s LIZ «= SSSSSSSS : 
LLLLLLEELE | OTITITT «= SSSSSSSS ; 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY a eae WITH THE TERMS OF SUCH LICENSE AND WITH Me 


E PRO ERW E 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeeokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT Wh IC 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


Vee RARER AAA A AAA RARER 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 


SsSossosooooosoooooSoSSoSSSSSS 
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Routines to output numbers, a RUNOFF style page number, 
RUNOFF style section numbers, and ordinary strings. 


ENVIRONMENT: Transportable 
AUTHOR: D. Knight » CREATION DATE: June 1978 
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Implemented the foreign Lan 
fixed output words. 
translations available 
is the same as in English, tha 


age conditionals for compiling 

s time, we only have the German 

he German word for INDEX 
t conditional isn't used. 


83 
Global edit of all modules. Updated module 
copyright dates. Changed require files to 
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Module Level Declar 


ZSBTTL ‘Module Level Declarations' 


ations 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
PACBAS 


| INCLUDE FILES: 


UIRE *REQ:RNODEF'; 


1B 
EQ 
IF DSRPLUS %THEN 
gorent *REQ:DPLLIB'; 
1B 

FI 


SE 
RARY ‘REQ:DSRLIB'; 


EQUATED SYMBOLS: 


OWN STORAGE: 


EXTERNAL ROUTINE 
CONVBB 


CONVBL, 
CONVBR: 


RARY ‘NXPORT:XPORT'; 


EXTERNAL REFERENCES: 


'Convert to specified base and pack 
onvert to letters and pack 
number to ASCII 


'Pack string into print Li 
‘Convert section number to ASCII 
'Convert any counter to whatever XXX indicates. 


‘Convert str 


' XPORT Library 
! RUNOFF variant definitions 


0-742 Pa 
OFF .SRCJPACK.BLI;1 


!' DSRPLUS BLISS Library 
DSR BLISS Library 


‘Convert Binary to specified base 
‘Convert binary to letters. 
‘Convert binary to Roman. 
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ZSBITL ‘Routine PACBAS' 
GLOBAL ROUTINE PACBAS (VALUE, LINE_PTR, BASE) = ! 


'e4¢ 


i FUNCTIONAL DESCRIPTION: 


Convert a decimal number to ASCII and place it in the 
output text. 


FORMAL PARAMETERS: 
vee = number to be converted (no negative neers allowed) 
LINE_PTR = string pointer into output Line for text 
BASE - base in which number is to be Mi. Bs, 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


The length of the converted string is returned 
SIDE EFFECTS: None 


MEUM SO OONOUESWN SH ODONOULS WOOO 


BEGIN 
LOCAL 
UNT, 
TEXT : VECTOR (10); 
‘Convert to decimal 
CONVBB (.VALUE, TEXT, COUNT, .BASE); 
'Now pack it into the output Line 


DECR I FROM .COUNT TO 1 DO 
CHSWCHAR_A (. TEXT C.J = 1], .LINE_PTR); 


. COUNT 
END; 


a 1 
e 1 
9 
° 1 
es 1 
e 1 
wy 1 
eo 1 
e 1 
. 1 
oO 1 
= 1 
ie 
9 
ry 
7.3 
o 1 
e 1 
e 1 
. vy 
e 1 
ww 1 
J 1 
ce 
e 1 
.: 9 
e 1 
* 1 
2 4 
Se 
° 1 
e 1 
; 1 
. 1 
J 1 
7 1 
a 1 
e 1 
oe 1 
; 1 
e 1 
& 1 
hey 


0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
3 
3 
3 
3 
3 
39 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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‘End of PACBAS 
-TITLE PACK Number outputting routines 
-IDENT \V a 000\ 
-EXTRN CONVBB, CONVBL, CONVBR 
-PSECT SCODES,NOWRT,2 


0000 00 ENTRY PACBAS, Save nothing ; 0236 

5E 2c ¢ SUBL2 #44, SP ; 
¢ AC DD PUSHL BASE : 0270 

4 AE OF PUSHAB COUNT ; 

C AE 9F 00008 PUSHAB TEXT : 


OwWYOWe V2 Us YE OY OW Es IE eI OO OD Es a IE Ze OY OI Oe Se a a I Eee ees ee 


5 
(4) 


Page 
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SCODES + 0000 


000000006 ce 
E 
Routine Base: 
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Routine PACBAS 


48 bytes, 


; Routine Size: 


16 
PACK Number outputting routines 1b-3¢ -1984 01:24: VAX-11 Bliss-32 V4.0-742 Page 6 
v04-000 Routine PAELET ° 1 ~3ep-19 4 04:86:68 D1 SKSVMSMAS TERS CRUNOFF -SRCIPACK.BLI: 1 ° (5) 


; 153 79 1 &ZSBITL ‘Routine PACLET' 
3 } ¢ ? ! GLOBAL ROUTINE PACLET (VALUE,LINE_PTR,ULM) = ! 
: 156 ¢ iit 
5 } { ? ! } FUNCTIONAL DESCRIPTION: 
3; 159 5. 29 Convert a decimal number to letters and place it in the 
; 1ey 8 B6 ! output text. 
; 166 8 88 1 ! FORMAL PARAMETERS: 
; % 89 1! 
> 164 8 7 7 VALUE = number to be converted (no neget ive numbers allowed) 
3; 6165 7 61! LINE_PTR = string pointer into output Line for text 
3 166 8 35 : ULM = indicates whether result is to be in upper, lower, or mixed case. 
: 168 0294 1! IMPLICIT INPUTS: None 
: 169 8532 1! 
s 170 0296 1 ! IMPLICIT OUTPUTS: None 
: 171 0297 1! 
: ive 0298 1 ! ROUTINE VALUE: 
3: 17 0299 1 ! COMPLETION CODES: 
: «174 0300 1! 
: ore 0301 1! The Length of the converted string is returned 
: 176 O305 1! 
s 77 0305 1 ! SIDE EFFECTS: None 
3; 178 0304 1! 
: 179 0305 1 !-- 
s 1800 0306 1 
3; «181 0307 BEGIN 
3 is 0308 
s 18 0309 LOCAL 
3 6184 0310 COUNT, 
s 185 0311 TEXT: VECTORC10I; 
: «186 b3i¢ § 
3; 6187 031 ‘Convert to letters 
; + Baie $ CONVBL(. VALUE, TEXT ,COUNT,.ULM); 
: 190 O36 2 'Now pack it into the eutput Line 
3: 6191 0317 2 DECR I FROM .COUNT TO 1 D 
3 136 0318 2 CHSWCHAR_A(.TEXTC.1-1),.LINE_PTR); 
; 9 0319 2 
: 194 0320 2 . COUNT 
: 195 0321 2 
: 196 0322 1 END; ‘End of PACLET 
wong 00000 ENTRY PACLET, Save nothing ; 0280 
5E ec C poe SUBL2 #44, SP 3 
0c AC 0D 0000 PUSHL LM 3 0314. 
4 AE OF 83 8 PUSHAB COUNT ; 
C AE 9F 000 PUSHAB TEXT : 
00000000G_ EF ; Of Pe it CALS 1A onveL 
0 6€ 1 fe $018 ADDL #1, COUNT, I : 0318) 
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(5) 
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MOVL 
RET 
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48 bytes, Routine Base: $CODE$ + 0030 


; Routine Size: 


Page 


Liss-32 V4.0-742 a 8 
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ZSBTITL ‘Routine PACPAG' 
GLOBAL ROUTINE PACPAG (LINE_NO,LINE_PTR) = ! 


lee 

FUNCTIONAL DESCRIPTION: 

i Pack multiple part page number into print Line. 
i FORMAL PARAMETERS: 


LINE_NO = Address of Line number to be packed 
LINE_PTR = String pointer to print Line. 


! 
' 
' 
! 
' 
IMPLICIT INPUTS: None. 
IMPLICIT OUTPUTS: None 
1 
1 
1! 
! 
! 
1 
1 
] 


jololeleflelelelolale) +) 


WN OOO NAUNESWN @OOODNOULSWN (ODO ODNAOUE WR "OO 


i ROUTINE VALUE: 
i COMPLETION CODES: 


The number of characters generated is returned. 
i SIDE EFFECTS: None 
BEGIN 
MAP 
LINE_NO: REF BLOCK; 
CHAR_COUNT; 
CHAR_COUNT=0; 


'Pack section into Line 
$f gt EME MORSE VPS NEQ 0 


BEGIN 
CHAR_COUNT=. CHAR_COUNT+PACSEC(.LINE_NO,.LINE_PTR); 


LOCA 


WAAIAIRPIPOPIPUNPNNINONUDY 2 2 OO OO OS oS 


SAE 


'Now put in the ‘-"" for seperator 
A : 


POR WIEROPOPONOPONINOPU WWW WII ROPONP UNNI 3 
‘ 


Be ee Oe Se Be Oe Se ee Se Be Se Se Se Se Ge Be Ge Fe Be Be Be Ge Be Se Fe Se Se Ge Ge Ge Ge Se Oe Ss Ge He HS Se SH Se Oe Se Oe Se Se Oe Se 8 ee SHS Se Se ee Se ee 


RIPDPIPDPNPORIPNIPIDNINININININYADINININININININIPIPIPINININPINYIPONINIAIPIPYPININUPINUPUNIPINININININIPIPPONoNy 


37 6 

38 6 

39 6 

40 6 CHSWCHAR_A(ZC'=",.LINE_PTR 

rt ° CHAR_COURT=.CHAR_COUNT#?1; 

43 6 END; 

44 6 

45 $ 'Pack page number into Line 

46 , CHAR_COUNT=. CHAR_COUNT+PACXXX(.LINE_NOCSCT_PAGE],.LINE_PTR,.LINE_NOCSCT_PAGE_D)); 
48 37 Place gue itt into lin 

49 7 IF .LINE_NOLSCT_SUB_PAGE) NEQ 0 

50 75 THEN 

51 6 BEGIN 

26 Ta EAN COUNT = CHAR COUNT OPACEEES LANE NOLECT SUB_PAGE). «1. IME_PIR. LINE _NOLSST_SUOPE_D I): 
54 379 ~ 


———— 


16 
PACK Number outputting routines 1-Se 1984 01:24: VAX=11 Bliss-32 V4.0-74 P 9 
v04-000 Routine BACPAG . 132395-1 382 93:67:88 DT SKSVMSMASTERSCRUNOFF SRCIPACK.BLI;1°% (6) 


; Routine Size: 92 bytes, Routine Base: S$CODE$ + 0060 


: 358 oan ; . CHAR_COUNT 
3 § § § END; 'End of PACPAG 
001¢ 00000 ENTRY PACPAG, Save R2,R3,R4 : 0324 
54 00000000v Ef 9 900¢ MOVAB PACXXX, R4 : ae 
52 04 i 4 itd aovE CHAR. COUNT , : 9323 
OF 6 3 Sb0r BITB (R2), wi : 
1B 13 00012 BEQL = 1$ ; 
08 AC DD 00014 PUSHL LINE_PTR > 0362 
52 DD 00017 PUSHL R : 
00000000 EF 03 FB 90019 CALLS #9, PACSEC bad 
29 08 ac 60 0033 Aoet? LENE ERR CRO. £0365 | 
60 2D 90 $09 7 MOVE ain : 
08 B¢ D6 O002A INCL at ; 
53 D6 0002D INCL CHAR_COUNT : 0366 
7E 62 04 04 EF OOO2F 1$ EXTZV #4, BG, (R2), -(SP) : 0371 
08 AC DD 00034 PUSHL PTR ; 
08 Ag DD 00037 PUSHL F 
64 03 FB OO03A CALLS #3, PACXXX 2 
53 50 ¢O 0003p ADDL2 RO, CHAR_COUNT : 
02 Ae BS 00040 TSTW (R2) : 0374. 
13 13 00043 BEQL $ : 
7E OC A2 04 00 EF 00045 EXTZV #0, #4, 12(R2), -(SP) : 0377 
08 AC bp 00048 PUSHL LINE PTR : 
7E 02 Ag C 0004E MOVZWL 2(R2), -(SP) 3 | 
64 03 FB 0005¢ CALLS #3, PACXXX : 
53 50 ¢O 0005 ADDL2 RO, CHAR COUNT ; 
50 53 D0 00058 28 MOVL  CHAR_COUNT, RO > 0382 
04 00058 RET ; 
| 


F 16 
PACK Number outputting routines 16-Sep-1984 01:24: VAX-11 Bliss-32 V4.0-742 Page 10 
v04-000 Rout ine PACROM ° 12-808- 1382 94:55:98 DISKSVMSMASTER: CRUNOFF .SRCJPACK.BLI; 1 . (7) | 
: 259 3. 1 XSSBTTL ‘Routine PACROM' 
3 re ¢ : GLOBAL ROUTINE PACROM (VALUE,LINE_PTR,ULM) = ! 
3 66 $ 1 !++ 
: e7 o ! FUNCTIONAL DESCRIPTION: 
: 265 5 1! Convert a decimal number to roman numerals and place it in the 
; 266 0390 1! output text. 
; 267 0391 1! 
3 re 0 38 : FORMAL PARAMETERS: 
; 270 94 1! VALUE = number to be converted (no negative numbers allowed) 
; ei 95 1! LINE_PTR = string pointer into output Line for text | 
3 Lf ba9 : ULM = indicates whether result is to be in upper, lower, or mixed case. | 
: 274 0398 1! IMPLICIT INPUTS: None 
s er 0399 1! 
; 276 0400 1 ! IMPLICIT OUTPUTS: None 
s hare 0401 1! 
: 78 ott) 1 ! ROUTINE VALUE: 
: 279 0403 1 ! COMPLETION CODES: 
: 280 0404 1! 
: 281 0405 1! The length of the converted string is returned 
3 sae 0406 1! 
3; (28 0407 1 ! SIDE EFFECTS: None 
3: «284 0408 1! 
: 285 0409 1 !-- 
; 286 0410 1 
: 87 0411 § BEGIN 
; 288 aie LOCAL 
: 8&9 041 COUNT, 
3 290 0414 TEXT: VECTORC102; : 
s 2 0415 
3 3 0416 ‘Convert to Roman 
; 2 0417 CONVBR(. VALUE, TEXT, COUNT, .ULM); 
: 294 0418 2 
: 295 0419 2 'Now pack it into the output Line 
: 396 0420 INCR T°FROM 1 TO. COUNT 06 
> 297 0421 CHSWCHAR_A(. TEXTC.1-1),.LINE_PTR); 
; en 04 ; 
; $39 04 - COUNT 
: 300 0424 
; 301 0425 1 END; 'End of PACROM 
| 
0090 00000 -ENTRY PACROM, Save nothing ; 0384 _ 
SE ac C2 00008 SUBL2 #44, SP : | 
of AC 3 00 PUSHL ULM 3 0617: 
4 AE 9F 00008 PUSHAB COUNT 3 
C AE OF Bane PUSHAB TEXT ; 
4 AC OD OF PUSHL VALUE ; | 
00000000G_ EF 4 ro 1 CALLS #4, CONVBR 3 
0 D 18 CLRL ; 0421, 
B 11 QOO1A BRB $ : 
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ZSBITL ‘Routine PACSEC' 


GL 
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OBAL ROUTINE PACSEC (LINE_NO,STRING_PTR) = : 


e+ 
FUNCTIONAL DESCRIPTION: 


Pack section number into string. 
FORMAL PARAMETERS: 


LINE _NO = Address of Line number to be packed 
STRING_PTR = String pointer te output string. 


IMPLICIT INPUTS: None. 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


The number of characters generated is returned. 
SIDE EFFECTS: None 
BEGIN 
MAP 
‘eee Ref BLOCK; 
CHAR_COUNT; 
CHAR_COUNT=0; 


‘Figure out which hs of section 
eae -LINE_NOCSCT_TYP] FROM SCT_LOW TO SCT_HIGH OF 


LOCA 


CSCT_CHAPT): : 
--napter 
CHAR’ COUNT=PACXXX(.LINE_NOLSCT_NUMBERJ,.STRING_PTR, .LINE_NOCSCT_CHAPT_DJ); 


CSCT_INDEX): 
! INDEX 
BEGIN 
en, 


IF_ .LINE_NOCSCT_INDEX_DJ EQL TCONVRT_LET_UPP 


HEN 
ZIF french XTHEN 


PTR = CHSPTR(UPLIT("INDEX")) 


LS 

F Teoitten ZTHEN 
PTR = CHSPTR(UPLIT(" INDEX')) 

LSE ' German and Engi ish are the same word here: 
PTR = CHSPTRC(UPLIT(* INDEX')) 
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483 SFI %F1 
484 ELSE 
5 IF «LINE _NOCSCT_INDEX_DJ EQL TCONVRT_LET_LOW 
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; 04 

; U bea? ZIF french XTHEN 

3 U ret: PTR = CHSPTRCUPLIT('index')) 

3 4 ZELSE 7 

3 U 0490 ZIF ital*an XTHEN 

; U 8433 PTR = CHSPTR(UPLIT('index')) 

3 138 ZELSE ! German and Engiish are the same word here: 

; 049 PTR = CHSPTRCUPLIT('index')) 

; 494 SFI XFI 

; 495 LSE 

3 496 ‘Everything else is interpreted as ''‘mixed'' 

3 U 0497 ZIF french XTHEN 

: U 0498 PTR = CHSPTRCUPLIT('Index')); 

3 0499 ZELSE 

; u 0500 ZIF italian XTHEN 

: U 0501 PTR = CHSPTR(UPLIT('Index')); 

3 Beng ZELSE ! German and English are the same word here: 

; $80 050 PTR = CHSPTR(UPLIT('Index')); 

s Sel 0504 SFI RFI —~ny 

3 rf 0505 

: 8 0506 CHAR_COUNT=PACSTR( PTR 

3 84 u 0507 ZIF french XTHEN 

3; 385 U 0508 5 

; 386 0509 ZELSE 

3 Ser U 0510 ZIF italian XTHEN 

: 388 U 0511 25 

: 34 bai§ ZELSE ! German and English are the same word here: 

3; 391 0514 SFI 2FI 

3 36 0515 2» STRING_PTR); 

oe 0516 END; 

: 394 0517 

; 395 0518 CSCT_APPEND): 

; 396 519 sApoend ts 

3 4 Bas0 CHAR_COUNT=PACXXX(.LINE_NOCSCT_NUMBER],.STRING_PTR,.LINE_NOLCSCT_APPEN_DJ); 

; 399 05 § TES; 

; 400 05 

; 0524 . CHAR_COUNT 

; b252 

: 0526 1 END; ‘End of PACSEC 

-PSECT S$PLIT$,NOWRT,NOEXE ,2 

00 00 6° 58 45 44 4E 49 00000 P.AAA: .ASCII \INDEX\<0><0><0> : 
00 8 0 78 65 64 6E 69 B08 P.AAB: .ASCII \index\<0><0><0> : 
00 00 00 78 65 64 6E€ 49 00010 P.AAC: .ASCII \Index\<0><0><0> : 


-PSECT SCODES,NOWRT,2 
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PACK Number outputting routines 1bese -1984 01:24: VAX-11 Bliss-32 V4.0-742 Page 14 
v04-000 Routine PACSEC. © 1 ~3007 138% 94:85:98 DISKSVMSMASTER: RUNOFF. SRCJPACK.BLI:1~ (8) | 
i aataeaetel ca $3 ENTRY PACSEC.. Save R2,R3,R6 ; 0427 
Bh bs CLRL  CHAR_COUNT : 0458 
1 04 AC DO B OVE LINE“NO, R1 + 0461 
eee ee se ee it 
003¢ 000E 0006 18 1$: WORD gig | 
$-1$° F 
7e oc Al 0% 0 EF QOOIE 28: EXTZV. #4, HG, 12(R1), ~(SP) ; 0466 
02 OD Al 04 04 FD 90 6 3$ CMP2V #4, #4, 13(R1), #2 + 0474) 
5 C BNEQ 4 : 
52 64 5 90 . ROVAB P.AAA, PTR ; 0482 
03 OD Al 04 04 FD 00 3 4$ CMPZV #4, #4, 13(R1), #3 ; 0485 
52 08 Ad H 0038 MOVAB P.AAB, PTR t 0493 
52 10 8b $e boa) 58 SOVAB as PTR : 0503 
08 at DD 00045 6$ PUSHL  STRING_PTR + 0515 
05 DD 00048 PUSHL "> + 0506 
32 DD O004A PUSHL F 
00000000V EF 0 FB 9004¢ CALLS WS. PACSTR Se 
7E OD al 04 * 00 EF 00054 7S: EXTZV eraak #4, pigiRt). -(SP) ; 0520 
04 Al DD 0005. PUSHL ; 
00000000vV_ EF 03 FB 90060 CALLS ase “Pacnnx poe 


; Routine Size: 104 bytes, Routine Base: SCODE$S + OOEB 
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ZSBITL ‘Routine PACSTR' 
GLOBAL ROUTINE PACSTR (STG_PTR, STG_SIZE, LINE_PTR) = ! 


1+ 


+ 
FUNCTIONAL DESCRIPTION: 


Pack string into print Line. 


i FORMAL PARAMETERS: 


STG_PTR = ch$ptr to string to be packed. 
STG SIZE = size of string to be packed. 
LINE_PTR = string pointer to output print Line. 


i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Number of characters placed in print Line. 


i SIDE EFFECTS: None 


BEGIN 


OCAL 
CHAR_COUNT, 
C_PTR; 


CHAR_COUNT = 0; 
C PIR = .STG_PIR; 
'Now pack the string 


INCR i FROM 1 TO .STG_SIZE DO 
BEGIN 
LOCAL 
CH 


CHAR = CHSRCHAR_A (C_PTR); 


IF (.CHAR LSS %C° ° 
OR .CHAR GTR %0°176") 


‘Substitute printables for control character 


CHSWCHAR_A (ZC'*", .LINE_PTR); 
CHAR_COURT = .CHAR_COUNT™+ 1; 
CHAR = iC'a' + . CHAR 


CHSWCHAR_A (.CHAR, .LINE_PTR); 
CHAR_ COURT =". CHAR_COUNT™+ 1 


2. V4.0-742 Pa 
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PACK Number outputting routines 18-50 Sep-19 4: VAX-11 Bliss-32 V4.0-742 e 16 
v04=000 Rout ine PACSTR 300-1 3B 9}: 3 98 Disk SVMSMASTER: CRUNOFF.SRCJPACK.BLI;1 929 (8 
: 46 0584 ? . CHAR_ COUNT | 
: 46 585 END; ‘End of PACSTR 
001¢ 0000 .ENTRY PACSTR, Save R2,R3.R4 : 05 8 
50 D4 a002 CLRL CHAR_COUNT : 0389 
54 04 AC D0 000 MOVL § STG_PTR, C_PTR : 05 
33 D4 9008 CLRL L- : 056 
52 iY 9A its 1$ MOVZBL (C_PTR)+, CHAR + 0568 
20 2 D1 0000F CMPL CHAR, #32 : 0570 
09 19 Oot2 BLSS $ : 
0000007E 8F : D1 0001 CMPL CHAR, #126 + 0571 
171 15 00018 BLEG $ : 
51 Oc ac 00 001D 2$ MOVL §LINE_PTR, R1 : 0575 
00 «81 SE 8F 90 00021 MOVB #94 “a0(R1) : 
61 D6 00026 INCL (RIS ; 
50 06 990 8 INCL CHAR_COUNT + 0576 
52 49 A2 : 002A MOVAB 64(R2), CHAR : 0577 
51 0¢ aC DO 000 E 3$ MOVL LINE_PTR, R1 : 0580 
00 «BI 52 90 000 MOVB CHAR’ @0(R1) : 
61 D6 00036 INCL  (R1) : 
50 Dg 00038 INCL CHAR_ COUNT > 0581 
cD 53 08 AC F3 O003A 4$ AOBLEQ STG_SIZE, 1, 1$ : 
04 0003F RET : 0585 


: Routine Size: 64 bytes, Routine Base: S$CODE$ + 0153 
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v04-000 Routine PACXXX 9 127808 - 1382 04:85:68 DISKSVMSMASTER: CRUNOFF. SRCIPACK.BLI:1 (1 


PACROM (VALUE, .LINE_PTR, 0); 
CTCONVRT_ROM_MIX) : 


> 465 § 1 ZSBTTL ‘Routine PACXXx' 

; 108 1 GLOBAL ROUTINE PACXXX (VALUE, LINE_PTR, D'SPLAY_CODE) = ! 
: 468 05 5 1 '+4 

: 133 331 : FUNCTIONAL DESCRIPTION: 

: 471 3 1 Convert a decimal number to whatever and place it in the 
3 alg 8237 ! output text. 

; Aza 0599 | FORMAL PARAMETERS: 

: 238 397 1 i VALUE = number to be converted (no negative numbers allowed) 
3; 47 98 1! LINE_PTR = string pointer into output Line for text 
3 og8 8238 ! DISPCAY_CODE - indicates type of conversion desired. 
: 480 0601 { IMPLICIT INPUTS: None 

; 48 9605 | IMPLICIT OUTPUTS: None 

> 484 0605 1 |! ROUTINE VALUE: 

; 485 bens ! COMPLETION CODES: 

; ret +4 ! The Length of the converted string is returned 

: 489 0610 1 | SIDE EFFECTS: None 

; 490 0611 1! 

3; 491 bei§ 1 !=- 

; 49 06135 1 

; 49 0614 BEGIN 

: 494 0615 

; $32 bei$ CASE .DISPLAY_CODE FROM TCONVRT_LOW TO TCONVRT_HIGH OF 

: 497 0618 CTCONVRT_DEC_NOZ, TCONVRT_DEC_ZER) : 

: $38 +384 PACBAS ([VALUE, eLINE_PTR, 10); 

: 500 0621 CTCONVRT_OCT_NOZ) : 

3 30) be ¢ PACBAS ({VALUE, .LINE_PTR, 8); 

; 508 0624 CTCONVRT_HEX_NOZ) : 

: Be be 5 PACBAS (7VALUE, .LINE_PTR, 16); 

; 506 06 $ CTCONVRT_LET_UPP) : 

: 07 6 3 PACLET (TVALUE, .LINE_PTR, -1); 

; $09 0 CTCONVRT_LET_LOW] : 

; 19 1 PACLET ({VALUE, .LINE_PTR, 0); 

; 14 $38 CTCONVRT_LET_MIX] : 

i 313 4 PACLET (7VALUE, .LINE_PTR, +1); 

: 515 CTCONVRT_ROM_UPP) : 

i 316 PACROM (VALUE, .LINE_PTR, -1); 

; 18 $ CTCONVRT_ROM_LOW) : 

3 1 4 

3 $9 4 

3 1 64 


mo 


; | 


1 
PACK Number outputting routines 18-Sep-19 4 01:24: VAX=11 Bliss-32 V4.0-74 P 

| v04=000 Rout ine PACKXK 14-Sep-1984 93:53:88 DISKSVMEMASTERCERUNOF? “ERCIPACK.BLISt oe C105, 
: 5 z PACROM (.VALUE, . TR, +1); 
¢ rob ¢ VALUE, .LINE_PTR, #1); | 
3 4 45 TES 
; 5 ‘6 END; ‘End of PACXXX 
0004 0C000 eENTRY PACXXX, Save R2 : 7 
52 FE67 CF 9E 000g MOVAB PACBAS. R2 : sie 
0 AC 70 9900 MOVQ = VALUE, RO > 0619) 
00 Cc ac CF 000 CASEL DISPLAY_CODE, #0, #9 > 0616) 
0029 0024 0014 0014 00010 1$: .WORD 2$-1$,- ; | 
003F 0 0036 002D 0001 2$-1$.- ; 
001C 0018 00020 6$-1$.- : 
7$-1$.- : 
8$-1$,- : 
10$-1$,- ; 
11$-1$.- : | 
12$-1$.- : 
3$-1$,- : 
| 4$-1$ e i 
OA DD 00024 2$ PUSHL #10 > 0619 
SS op S888 ss: BBS 2 
02 11 50058 BRB 5$ : 
10 DD 0002C 4s: PUSHL #16 > 0625 
03 BB O00¢E 5$: PUSHR #*M<RO,R1> : | 
62 03 FB 000 : CALLS #3, PACBAS ; 
7E or Se donee 6s mIEGL #1. =(SP? ; eanl 
06 11 00037 BRB 9$ : | 
7E D4 00039 7$ CLRL = = (SP) > 0631 

02 11 0003B BRB 9$ : 
01 DD 0003D 8s: PUSHL #1 > 0634 

03 BB 0003F 9S: PUSHR #*M<RO,R1> : 

30 A2 03 FB 00041 CALLS #3, PACLET : 

04 00045 RET ; 
7E 01 CE 00046 10$:  MNEGL #1, -(SP) > 0637 

06 11 00049 BRB 13§ ; 
7E D4 00048 11$: CLRL = =( SP) ; 0640 | 
02 11 00040 BRB 13$ ; 
4 DD sited 1g: PUSH #1 ; 0643 | 
3 BB 00051 13$:  PUSHR #*M<RO,R1> : 
ooBc = C2 03 FB 00095 CALLS #3, PACROM : 
04 00058 RET 3 0646 


3; Routine Size: 89 bytes, Routine Base: $CODE$S + 0193 | 


‘End of module 


PACK 
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H PSECT SUMMARY 

: Name Bytes Attributes 

: $CODES 492 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, Safe nd PEt heft 
; SPLITS 24 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

; : onacsae SyEROLg cssceoss Pages Processing 

3 File Total Loaded Percent Mapped Time 

; mitts? Hetty pee ge gh 590 0 0 252 00:00 -¢ 

; 7$255$DUA28: CRUNOFF .SRCIDSRLIB.L32;1 1248 26 2 86 00:00. 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PACK/OBJ=OBJ$:PACK MSRC$:PACK/UPDATE=(ENHS$: PACK) 


; Size: 


492 code + 24 data bytes 
; Run Time: 0 


: 0:10.3 
; Elapsed Time: 09:¢¢-8 
; Lines/CPU Min: 37 

; Lexemes/CPU-Min: 12304 

3 eee Used: 58 pages 

; Compilation Complete 
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